home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Internet Tools 1993 July / Internet Tools.iso / RockRidge / archival / mirror-2.1 / do_unlinks < prev    next >
Encoding:
Text File  |  1993-06-22  |  316 b   |  15 lines
  1. #!/usr/bin/perl
  2. # Obey the remove commands generated but not done by mirror.
  3.  
  4. # NEED TO unlink /public/micros/ibmpc/simtel20/sprdsht/tc810.arc
  5. # NEED TO rmdir /public/micros/ibmpc/simtel20/sprdsht
  6.  
  7. while( <> ){
  8.     chop;
  9.     if( /^NEED TO (unlink|rmdir) (\/public.*)/ ){
  10.         print "$1(\"$2\")\n";
  11.         eval "$1(\"$2\")";
  12.     }
  13. }
  14.  
  15.